home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 026a / formcode.zip / LABEL.MPG < prev    next >
Text File  |  1991-10-18  |  1KB  |  46 lines
  1. * This is the modified program for LABEL.FCG. The query statements have been
  2. * added manually in this program. The comments describe the changes that have
  3. * been added. All changes are in lower case. This file gets included in
  4. * LABEL.PRG each time LABEL.PRG is generated.
  5. *
  6. * NOTE: This form only uses the COURIER 10 and 12 point fonts to make it
  7. * portable to several different LaserJet printers.
  8. *
  9. SET TALK OFF
  10. SET CONSOLE OFF
  11. * The following line makes all procedures in this file accesible to the main
  12. * program. This line is not necessary for some systems (For example FoxPro).
  13. SET PROCEDURE TO label
  14. DO FCGINIT
  15. SET PRINT ON
  16. DO FCGSTART WITH 1, 0, 2, 4, 300
  17.  
  18. FCGPAGE = 1
  19. FCGROW = 0
  20. FCGCOL = 0
  21.  
  22. clear
  23. @ 12, 20 say "Starting label row (0 thru 8):" get fcgrow picture "99"
  24. read
  25.  
  26. use labels
  27. do while .not. eof()
  28.     DO FCGVAROBJ WITH FCGROW, FCGCOL
  29. *   Do all variable re-assignments, file pointer movements, etc, here.
  30.     skip
  31.     FCGCOL = FCGCOL + 1
  32.     IF FCGCOL >= 3
  33.         FCGCOL = 0
  34.         FCGROW = FCGROW + 1
  35.         IF FCGROW >= 9
  36.             FCGROW = 0
  37.             FCGPAGE = FCGPAGE + 1
  38.             ?? chr(12)
  39.         ENDIF
  40.     ENDIF
  41. ENDDO
  42. DO FCGEND
  43. SET PRINT OFF
  44. SET CONSOLE ON
  45. RETURN
  46.